home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 46
/
046.d81
/
tech letters
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
635b
|
20 lines
0 ifa=.thena=1:load"tech.fnt",8,1
5 fp=4:poke53272,(peek(53272)and240)orfp
10 poke53280,1:poke53281,1
20 print"[147] tech letters"
30 print" by matthew lewis"
35 print" abcdefghijklmnopqrstuvwxyz 0123456789"
40 print" press space to toggle between"
50 print" the tech font and the regular font."
60 print" press q to quit!"
70 ifpeek(203)<>64then70
75 a=peek(203):ifa<>60anda<>62then75
80 ifa=60thenfp=fp+10:iffp>14thenfp=4
90 ifa=60thenpoke53272,(peek(53272)and240)orfp:goto70
100 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
110 ifer<>63thenend
120 poke53272,21
130 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
140 print"run"
150 poke631,13:poke632,13:poke198,2:end